﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%select case v
case "0"
we0="<br/>"
hr="---------------<br/>"
%>
<card title="天气预报查询"><p align="left">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title>天气预报查询</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select

dim urll
urll=request.querystring("url")
Dim Url,Html,body,body2,page2
Url="http://qq.ip138.com/weather/"&urll&"/index.htm"

body=qingtian.getHTTPPageee(url) 
         
start=Instr(body,"<table width=""420"" borderColorDark=""#ffffff"" borderColorLight=""#008000"" border=""1"" cellspacing=""0"" cellpadding=""1"">")
over=Instr(body,"<p align=""center"">请输入市")
body=mid(body,start,over-start)


body = replace(body,"</td>","")
body = replace(body,"<td>","")
body = replace(body,"</tr>","<br/>")
body = replace(body,"<tr>","")
body = replace(body,"</table>","")
body = replace(body,"</p>","")
body = replace(body,"<p>","")
body = replace(body,"/weather/"&urll&"/","view.asp?sid="&sidd&"&amp;url="&urll&"&amp;city=")
body = replace(body,".htm","")
body = replace(body,"</div>","")
body = replace(body,"<table width=""420"" borderColorDark=""#ffffff"" borderColorLight=""#008000"" border=""1"" cellspacing=""0"" cellpadding=""1"">","")
body = replace(body,"<div style=""padding:3px""><iframe src=""/jss/bd_460x60"" frameborder=""no"" width=""460"" height=""60"" border=""0"" marginwidth=""0"" marginheight=""0"" scrolling=""no""></iframe>","")
Response.Write we
if body="" then
Response.Write "很遗憾.无法为您的获取天气情况,<a href='index.asp'>重新查询</a><br/>"
else
Response.write body
end if
Response.Write we1
Response.Write hr

%>
<%=sou%><a href='index.asp?sid=<%=sid%>'>天气首页</a><%=we0%>

<%
end Function
%>
